home *** CD-ROM | disk | FTP | other *** search
/ El Mac 9 / El Mac 9.iso / Shareware / Demos / Igor Demo Pro / 1 PutContentsIn Igor Pro Folder / WaveMetrics Procedures / Utilities / String Utilities / NewString < prev    next >
Encoding:
Text File  |  1994-02-18  |  334 b   |  26 lines  |  [TEXT/IGR0]
  1.  
  2. | This function generates a string of the desired length. It is typically used
  3. | with the FBinRead operation.
  4. | 
  5. Function/S NewString(n)
  6.     variable n
  7.     
  8.     String str1=""
  9.     do
  10.         if( n < 10 )
  11.             break
  12.         endif
  13.         str1 += "0123456789"
  14.         n -= 10
  15.     while(1)
  16.     do
  17.         if( n < 1 )
  18.             break;
  19.         endif
  20.         str1 += "A"
  21.         n -= 1
  22.     while(1)
  23.     return str1
  24. end
  25.  
  26.